program subrango2;
type S=1..12;
    s1=-5..0;

var x,y:S;


begin
	x:=succ(5);
	write(x);

	y:=pred(7);
	write(y);

end.
